home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm8 / 00694_MTR gest ini.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  14.2 KB  |  230 lines
  1. on patience txt
  2.   global gCompte
  3.   set the locH of sprite 39 to the locH of sprite 39 + 1
  4.   set gCompte to gCompte + 1
  5.   updateStage()
  6. end
  7.  
  8. on ini_env
  9.   global gIndEnv, gEnv1, gEnv2, gEnv3, gEnv4, gCodEnv, gNumEnv, gNomBestEnv, gBotBestEnv, gTopBestEnv, gLefBestEnv, gRigBestEnv, gTextEnvT, gTextEnvL, gCDpath, gTitBestEnv
  10.   patience("Initialisation des donn┼╜es d'environnement : codes")
  11.   set gIndEnv to list("PUR", "NEC", "AEG", "BRA", "PAF", "KEN", "ORE", "AAF", "HHA", "HER", "HSA", "PNE", "HSS")
  12.   set gEnv1 to list("TRX", "ADA", "AEG", "AST", "PAF", "KEN", "ORE", "TRM", "DEI", "ERE", "HYE", "CEV", "MAM")
  13.   set gEnv2 to list("   ", "LOF", "ARS", "   ", "PAL", "   ", "MAC", "AFA", "HAB", "GIG", "PRS", "PRN", "CRO")
  14.   set gEnv3 to list("TRI", "NEC", "HYA", "BAS", "GON", "MEG", "LER", "OMO", "DEP", "CEU", "ROS", "MSK", "REN")
  15.   set gEnv4 to list("PUR", "POP", "MOE", "BRA", "VIC", "PLA", "CHA", "HIP", "RUB", "CER", "AUR", "RHN", "NEA")
  16.   patience("Initialisation des donn┼╜es d'environnement : noms")
  17.   set gNomBestEnv to []
  18.   set gNomBestEnv to list("-Tyranosaurus", "  ", "-Triceratops", "+Purgatorius", "+Adapis", "+Lophiodon", "+Necrolemur", "+Propalaeotherium", "+Aegyptopithecus", "+Arsinoitherium", "+Hyaenodon", "+Moeritherium", "+Astrapotherium", "  ", "+Basilosaurus", "+Branisella", "+Proconsul", "+Palaeomerix", "+Gomphotherium", "+Victoriapithecus", "+Kenyapithecus", "  ", "+Megistotherium", "+Platybelodon", "+Oreopithecus", "+Machairodus", "+Deinogalerix", "+Chalicotherium", "-Termite hunting", "+Australopithecus afarensis", "+Homotherium", "+Hipparion", "+Deinotherium", "+Homo Habilis", "-Carving up", "+Paranthropus Boisei", "+Homo erectus", "+Giganthopithecus", "-Gathering", "-Hunting", "-Cave hyena", "-Cave", "+Megaloceros", "-Aurochs", "-Mosbach horse", "-Preneanderthal", "-Musk ox", "-Prairie rhinoceros", "-Mammoth", "-Campsite", "-Hunting", "-Funeral rite")
  19.   set gTitBestEnv to list("Tyranosaurus", "  ", "Triceratops", "Purgatorius", "Adapis", "Lophiodon", "Necrolemur", "Propalaeotherium", "Aegyptopithecus", "Arsinoitherium", "Hyaenodon", "Moeritherium", "Astrapotherium", "  ", "Basilosaurus", "Branisella", "Proconsul", "Palaeomerix", "Gomphotherium", "Victoriapithecus", "Kenyapithecus", "  ", "Megistotherium", "Platybelodon", "Oreopithecus", "Machairodus", "Deinogalerix", "Chalicotherium", "Australopithecus afarensis", "Australopithecus afarensis", "Homotherium", "Hipparion", "Deinotherium", "Homo Habilis", "Homo Habilis", "Paranthropus Boisei", "Homo erectus", "Giganthopithecus", "Homo erectus", "Homo erectus", "Crocuta spelaea", "Homo sapiens archaic", "Megaloceros", "Bos primigenius", "Equus caballus mosbachensis", "Preneanderthal", "Praeovibos priscus", "Dicerorhinus hemitoechus", "Mammuthus", "Homo sapiens sapiens", "Homo sapiens sapiens", "Homo sapiens neanderthalensis")
  20.   patience("Initialisation des donn┼╜es d'environnement : coordon┼╜es")
  21.   set gLefBestEnv to list(43, 0, 196, 42, 52, 198, 184, 43, 44, 188, 200, 41, 42, 0, 160, 88, 38, 211, 194, 47, 39, 0, 194, 50, 42, 174, 183, 41, 31, 229, 186, 41, 35, 220, 210, 42, 37, 226, 205, 47, 39, 208, 195, 42, 31, 232, 176, 35, 43, 223, 200, 37)
  22.   set gTopBestEnv to list(309, 0, 396, 402, 318, 317, 399, 391, 309, 312, 392, 393, 311, 0, 400, 395, 313, 321, 391, 388, 312, 0, 401, 393, 311, 311, 403, 387, 306, 310, 401, 397, 309, 312, 384, 388, 306, 314, 393, 385, 317, 311, 386, 394, 311, 310, 398, 385, 310, 314, 388, 404)
  23.   set gRigBestEnv to list(94, 0, 252, 97, 96, 248, 247, 95, 88, 263, 255, 89, 94, 0, 262, 123, 95, 266, 263, 84, 79, 0, 253, 109, 87, 252, 249, 94, 97, 253, 260, 94, 79, 264, 251, 73, 63, 268, 260, 82, 86, 259, 257, 96, 96, 265, 263, 78, 95, 263, 250, 115)
  24.   set gBotBestEnv to list(390, 0, 434, 432, 353, 359, 429, 438, 364, 366, 441, 441, 346, 0, 427, 444, 366, 370, 449, 444, 371, 0, 443, 431, 362, 359, 441, 445, 356, 378, 442, 441, 376, 365, 446, 447, 370, 370, 445, 444, 360, 373, 448, 442, 355, 383, 444, 446, 374, 372, 443, 443)
  25.   set gCodEnv to []
  26.   set gNumEnv to []
  27.   set gTextEnvT to the text of cast "TXT E"
  28. end
  29.  
  30. on ini_phy
  31.   global gListCodPhy, gListNomPhy, gListRecPhy, gListSujPhy, gListArbPhy, gListFicPhy, gListDebPhy, gListFinPhy, gListHorPhy, gListTimPhy, gTextPhyL, gCDpath
  32.   patience("Initialisation des donn┼╜es de phylog┼╜nie : fichiers")
  33.   set gListFicPhy to list("AAFAAR", "AAFHHA", "AARARO", "APALEM", "AEGDEN", "AEGHYL", "AEGPAF", "AEGVIC", "BRATRE", "DENPLI", "HERHSA", "HERPNE", "HHAHER", "HSAHSS", "KENAAF", "KENGOR", "KENPAN", "NECAEG", "NECAPI", "NECBRA", "NECTAR", "PAFDRY", "PAFKEN", "PAFORE", "PAFSIV", "PNEHSN", "PRIPUR", "PURAPA", "PURNEC", "PURPLE", "SIVGIG", "SIVPON", "THECGU", "TREATE", "VICTHE")
  34.   patience(EMPTY)
  35.   set gListDebPhy to list(15, 125, 235, 285, 515, 665, 895, 1045, 1175, 1265, 1355, 1445, 1535, 1605, 1695, 1805, 1985, 2165, 2255, 2335, 2445, 2675, 2735, 2865, 2980, 3090, 3150, 3245, 3425, 3625, 3805, 3915, 4065, 4195, 4405)
  36.   patience(EMPTY)
  37.   set gListFinPhy to list(95, 205, 255, 485, 635, 865, 1015, 1145, 1235, 1325, 1415, 1505, 1575, 1665, 1775, 1955, 2135, 2225, 2305, 2415, 2645, 2705, 2835, 2950, 3060, 3120, 3215, 3395, 3595, 3775, 3885, 4035, 4165, 4375, 4465)
  38.   patience("index dans le bigfile des 18 suj pour acc┬Ås horizontal")
  39.   set gListHorPhy to list(3425, 2165, 3395, 515, 1175, 2735, 4405, 1695, 2950, 15, 1535, 255, 1355, 3885, 1605, 1505, 1665, 3120)
  40.   patience("Initialisation des donn┼╜es de phylog┼╜nie : codes")
  41.   set gListCodPhy to list("PUR", "PLE", "APA", "NEC", "API", "AEG", "BRA", "TRE", "VIC", "DEN", "PAF", "PLI", "DRY", "SIV", "KEN", "THE", "ORE", "AAF", "AAR", "HHA", "ARO", "HER", "GIG", "PNE", "HSA", "HSN", "HSS", "PAN", "GOR", "PON", "HYL", "CGU", "ATE", "TAR", "LEM")
  42.   patience("Initialisation des donn┼╜es de phylog┼╜nie : Epoques")
  43.   set gListTimPhy to list(70, 60, 50, 50, 35, 30, 30, 17, 17, 17, 17, 10, 15, 15, 14, 2.5, 14, 4, 2.5, 2, 2, 1, 1, 0.20000000000000001, 0.20000000000000001, 0.035, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0)
  44.   patience("Initialisation des donn┼╜es de phylog┼╜nie : index")
  45.   set gListSujPhy to list(1, 0, 3, 2, 0, 4, 5, 0, 7, 0, 6, 0, 0, 0, 8, 0, 9, 10, 0, 11, 12, 13, 14, 16, 15, 18, 17, 0, 0, 0, 0, 0, 0, 0, 0)
  46.   patience("Initialisation des donn┼╜es de phylog┼╜nie : hi┼╜rarchie")
  47.   set gListArbPhy to list(10000, 11000, 12000, 20000, 22000, 30000, 23000, 23100, 31000, 32000, 40000, 32100, 41000, 43000, 50000, 31100, 42000, 60000, 61000, 70000, 61100, 80000, 43100, 81000, 90000, 81100, 100000, 52000, 51000, 43200, 33000, 31110, 23110, 21000, 12100)
  48.   patience("Initialisation des donn┼╜es de phylog┼╜nie : coordon┼╜es")
  49.   set gListRecPhy to list(rect(550, 374, 559, 383), rect(542, 336, 551, 345), rect(530, 327, 539, 336), rect(509, 328, 518, 337), rect(501, 311, 510, 320), rect(488, 313, 497, 322), rect(496, 300, 505, 309), rect(496, 263, 505, 272), rect(480, 273, 489, 282), rect(467, 270, 476, 279), rect(438, 270, 447, 279), rect(467, 230, 476, 239), rect(447, 232, 456, 241), rect(417, 239, 426, 248), rect(402, 228, 411, 237), rect(480, 197, 489, 206), rect(439, 202, 448, 211), rect(381, 206, 390, 215), rect(374, 196, 383, 205), rect(366, 185, 375, 194), rect(376, 178, 385, 187), rect(366, 171, 375, 180), rect(430, 167, 439, 176), rect(376, 134, 385, 143), rect(366, 134, 375, 143), rect(376, 111, 385, 120), rect(368, 95, 377, 104), rect(396, 95, 405, 104), rect(406, 95, 415, 104), rect(423, 95, 432, 104), rect(455, 95, 464, 104), rect(479, 95, 488, 104), rect(495, 95, 504, 104), rect(517, 95, 526, 104), rect(539, 95, 548, 104))
  50.   patience("Initialisation des donn┼╜es de phylog┼╜nie : noms")
  51.   set gListNomPhy to list("Purgatorius Unio", "Plesiadapis", "Adapis parisiensis", "Necrolemur antiquus", "Apidium", "Aegyptopithecus zeuxis", "Branisella Boliviana", "Tremacebus", "Victoriapithecus macinnesi", "Dendropithecus", "Proconsul africanus", "Pliopithecus", "Dryopithecus", "Sivapithecus", "Kenyapithecus africanus", "Theropithecus", "Oreopithecus Bamboli", "Australopithecus afarensis", "Australopithecus africanus", "Homo habilis", "Paranthropus boisei", "Homo erectus", "Gigantopitecus blacki", "Preneanderthal", "Homo sapiens archaic", "Homo sapiens neanderthalensis", "Homo sapiens sapiens", "Pan", "Gorilla", "Pongo", "Hylobates", "Colobus guereza", "Ateles", "Tarsius", "Lemur")
  52.   set monTxt to "Initialisation des donn┼╜es de phylog┼╜nie : textes " & RETURN
  53.   set TextPhyL to EMPTY
  54.   set TextPhyL to the text of cast "TXT P"
  55.   set i to 1
  56.   set j to 1
  57.   set gTextPhyL to []
  58.   repeat while j < 36
  59.     patience(EMPTY)
  60.     set la_phrase to EMPTY
  61.     if char 1 of line i of TextPhyL = "@" then
  62.       set la_phrase to chars(line i of TextPhyL, 6, the number of chars in line i of TextPhyL)
  63.     end if
  64.     if char 1 of line i + 1 of TextPhyL <> "@" then
  65.       set la_phrase to la_phrase & RETURN & line i + 1 of TextPhyL
  66.       set i to i + 1
  67.     end if
  68.     add(gTextPhyL, la_phrase)
  69.     set i to i + 1
  70.     set j to j + 1
  71.   end repeat
  72. end
  73.  
  74. on ini_curs
  75.   global gListCurs, gListMsk, gCursor
  76.   patience("Initialisation des curseurs")
  77.   set gListCurs to []
  78.   set gListMsk to []
  79.   set gCursor to 1
  80.   add(gListCurs, the number of cast "1DOIGT")
  81.   add(gListMsk, the number of cast "1DOIGT MSK")
  82.   curseur(-1)
  83.   curseur(1)
  84.   add(gListCurs, the number of cast "1DDWN")
  85.   add(gListMsk, the number of cast "1DDWN MSK")
  86.   curseur(-1)
  87.   curseur(2)
  88.   add(gListCurs, the number of cast "2DOIGT")
  89.   add(gListMsk, the number of cast "2DOIGT MSK")
  90.   curseur(-1)
  91.   curseur(3)
  92.   add(gListCurs, the number of cast "PRISE")
  93.   add(gListMsk, the number of cast "PRISE MSK")
  94.   curseur(-1)
  95.   curseur(4)
  96.   add(gListCurs, the number of cast "PREND")
  97.   add(gListMsk, the number of cast "PREND MSK")
  98.   curseur(-1)
  99.   curseur(5)
  100.   add(gListCurs, the number of cast "WAIT1")
  101.   add(gListMsk, the number of cast "WAIT1 MSK")
  102.   curseur(-1)
  103.   curseur(6)
  104.   add(gListCurs, the number of cast "NOWAY")
  105.   add(gListMsk, the number of cast "NOWAY MSK")
  106.   curseur(-1)
  107.   curseur(7)
  108.   add(gListCurs, the number of cast "GAUDRO")
  109.   add(gListMsk, the number of cast "GAUDRO MSK")
  110.   curseur(-1)
  111.   curseur(8)
  112.   add(gListCurs, the number of cast "GAUDRO2")
  113.   add(gListMsk, the number of cast "GAUDRO2 MSK")
  114.   curseur(-1)
  115.   curseur(9)
  116.   add(gListCurs, the number of cast "DRODRO")
  117.   add(gListMsk, the number of cast "DRODRO MSK")
  118.   curseur(-1)
  119.   curseur(10)
  120.   add(gListCurs, the number of cast "GAUGAU")
  121.   add(gListMsk, the number of cast "GAUGAU MSK")
  122.   curseur(-1)
  123.   curseur(11)
  124.   curseur(-1)
  125. end
  126.  
  127. on ini_suj
  128.   global gListSuj, gListCod, gListAnc
  129.   patience("Initialisation des donn┼╜es g┼╜n┼╜rales : sujets")
  130.   set suj to FBestiole(mnew, "Purgatorius Unio", "PUR", "A", 0, "PUR", "PUR", 70)
  131.   set gListSuj to list(suj)
  132.   set gListCod to list("PUR")
  133.   set suj to FBestiole(mnew, "Necrolemur Antiquus", "NEC", "A", 3, "NEC", "NEC", 50)
  134.   add(gListSuj, suj)
  135.   add(gListCod, "NEC")
  136.   set suj to FBestiole(mnew, "Adapis Parisiensis", "APA", "C", 2, "NEC", "NEC", 50)
  137.   add(gListSuj, suj)
  138.   add(gListCod, "APA")
  139.   set suj to FBestiole(mnew, "Aegyptopithecus Zeuxis", "AEG", "A", 5, "AEG", "AEG", 30)
  140.   add(gListSuj, suj)
  141.   add(gListCod, "AEG")
  142.   set suj to FBestiole(mnew, "Branisella Boliviana", "BRA", "C", 4, "BRA", "BRA", 30)
  143.   add(gListSuj, suj)
  144.   add(gListCod, "BRA")
  145.   set suj to FBestiole(mnew, "Proconsul Africanus", "PAF", "A", 7, "PAF", "PAF", 17)
  146.   add(gListSuj, suj)
  147.   add(gListCod, "PAF")
  148.   set suj to FBestiole(mnew, "Victoriapithecus Macinnesi", "VIC", "C", 6, "PAF", "VIC", 17)
  149.   add(gListSuj, suj)
  150.   add(gListCod, "VIC")
  151.   set suj to FBestiole(mnew, "Kenyapithecus Africanus", "KEN", "A", 9, "KEN", "KEN", 14)
  152.   add(gListSuj, suj)
  153.   add(gListCod, "KEN")
  154.   set suj to FBestiole(mnew, "Oreopithecus Bamboli", "ORE", "C", 8, "ORE", "ORE", 14)
  155.   add(gListSuj, suj)
  156.   add(gListCod, "ORE")
  157.   set suj to FBestiole(mnew, "Australopithecus Afarensis", "AAF", "A", 0, "AAF", "AAF", 4)
  158.   add(gListSuj, suj)
  159.   add(gListCod, "AAF")
  160.   set suj to FBestiole(mnew, "Homo Habilis", "HHA", "A", 12, "HHA", "HHA", 2)
  161.   add(gListSuj, suj)
  162.   add(gListCod, "HHA")
  163.   set suj to FBestiole(mnew, "Paranthropus Boisei", "ARO", "C", 11, "HHA", "ARO", 2)
  164.   add(gListSuj, suj)
  165.   add(gListCod, "ARO")
  166.   set suj to FBestiole(mnew, "Homo Erectus", "HER", "A", 14, "HER", "HER", 1)
  167.   add(gListSuj, suj)
  168.   add(gListCod, "HER")
  169.   set suj to FBestiole(mnew, "Gigantopithecus Blacki", "GIG", "C", 13, "HER", "GIG", 1)
  170.   add(gListSuj, suj)
  171.   add(gListCod, "GIG")
  172.   set suj to FBestiole(mnew, "Homo Sapiens Archaic", "HSA", "A", 16, "HSA", "HSA", 0.20000000000000001)
  173.   add(gListSuj, suj)
  174.   add(gListCod, "HSA")
  175.   set suj to FBestiole(mnew, "Preneanderthal", "PNE", "C", 15, "PNE", "PNE", 0.20000000000000001)
  176.   add(gListSuj, suj)
  177.   add(gListCod, "PNE")
  178.   set suj to FBestiole(mnew, "Homo Sapiens Sapiens", "HSS", "A", 18, "HSS", "HSS", 0.035)
  179.   add(gListSuj, suj)
  180.   add(gListCod, "HSS")
  181.   set suj to FBestiole(mnew, "Homo Sapiens Neanderthalensis", "HSN", "C", 17, "HSS", "HSN", 0.035)
  182.   add(gListSuj, suj)
  183.   add(gListCod, "HSN")
  184.   set gListAnc to list(getAt(gListSuj, 1), getAt(gListSuj, 2), getAt(gListSuj, 4), getAt(gListSuj, 6), getAt(gListSuj, 8), getAt(gListSuj, 10), getAt(gListSuj, 11), getAt(gListSuj, 13), getAt(gListSuj, 15), getAt(gListSuj, 17))
  185. end
  186.  
  187. on ini_Tim
  188.   global gListDebHi, gListDurHi, gListDebCh, gListDurCh, gListDebDe, gListDurDe, gListDebEn, gListDurEn
  189.   patience(EMPTY)
  190.   set gListDebHi to list()
  191.   set gListDurHi to list(870, 2435, 3680, 5400, 6955, 8245, 9705, 11250, 12830, 14230, 15735, 17175, 18815, 20370, 21685, 23325, 24785, 26515)
  192.   set gListDebDe to list()
  193.   set gListDurDe to list(995, 5670, 10440, 14830, 18780, 23940, 27825, 32585, 37285, 45000, 48495, 52710, 56210, 60055, 64110, 69345, 73895, 77845)
  194.   set gListDebCh to list()
  195.   set gListDurCh to list(1300, 4015, 7115, 10180, 12965, 16670, 19055, 22215, 25290, 28765)
  196.   set gListDebEn to list()
  197.   set gListDurEn to list()
  198. end
  199.  
  200. on ini_son
  201.   global gListZic0, gListZic1, gIndZic1, gIndZic0
  202.   patience(EMPTY)
  203.   set gListZic0 to []
  204.   add(gListZic0, "ACC.AIF")
  205.   add(gListZic0, "S1.AIF")
  206.   add(gListZic0, "S4.AIF")
  207.   set gIndZic0 to 1
  208.   set gListZic1 to []
  209.   add(gListZic1, "S1.AIF")
  210.   add(gListZic1, "S2.AIF")
  211.   add(gListZic1, "S3.AIF")
  212.   add(gListZic1, "S4.AIF")
  213.   add(gListZic1, "S5.AIF")
  214.   add(gListZic1, "S6.AIF")
  215.   set gIndZic1 to 1
  216. end
  217.  
  218. on ini_aid
  219.   global gTraduit, gCDpath
  220.   set gTraduit to []
  221.   set la_phrase to "zzz"
  222.   set numLig to numLig + 1
  223.   set maxLig to the number of lines in field "TXT I"
  224.   repeat while numLig <= maxLig
  225.     patience(EMPTY)
  226.     add(gTraduit, line numLig of field "TXT I")
  227.     set numLig to numLig + 1
  228.   end repeat
  229. end
  230.